home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / ALLKEYS.SCR next >
Encoding:
Text File  |  1993-05-25  |  11.6 KB  |  660 lines

  1. :allkeys.scr
  2.  
  3. if memory 1 = 5 goto cont_lkl
  4. memory 1 = 5
  5. memory 2 = 0
  6.  
  7. :cont_lkl
  8. if memory 2 > 0 goto repeat_lesson2
  9.  
  10. goto start_lesson
  11. :repeat_lesson
  12. bkey r
  13. bkey ' 
  14.  
  15. :start_lesson
  16. start 2
  17. clear 15
  18.  
  19. cursor 23 19
  20. print 'Press any key to start lesson 7.
  21. wait -
  22. clear 19 19
  23.  
  24. clear 15
  25. cursor 0 15
  26. print 'In lesson 7 we will practice with all the keys you have learnt.
  27.  
  28. cursor 19 18
  29. print 'qaz wsx edc rfv tgb yhn ujm ik, ol. p;/
  30. cursor 0 21
  31. print 'Remember your fingers rest on the HOME keys.
  32. hkey a
  33. fkey q
  34. fkey z
  35. hkey s
  36. fkey w
  37. fkey x
  38. hkey d
  39. fkey e
  40. fkey c
  41. hkey f
  42. fkey r
  43. fkey v
  44. fkey g
  45. fkey t
  46. fkey b
  47. fkey h
  48. fkey y
  49. fkey n
  50. hkey j
  51. fkey u
  52. fkey m
  53. hkey k
  54. fkey i
  55. fkey ,
  56. hkey l
  57. fkey o
  58. fkey .
  59. hkey ;
  60. fkey p
  61. fkey /
  62. script - waitspc
  63. bkey a
  64. bkey q
  65. bkey z
  66. bkey s
  67. bkey w
  68. bkey x
  69. bkey d
  70. bkey e
  71. bkey c
  72. bkey f
  73. bkey r
  74. bkey v
  75. bkey g
  76. bkey t
  77. bkey b
  78. bkey h
  79. bkey y
  80. bkey n
  81. bkey j
  82. bkey u
  83. bkey m
  84. bkey k
  85. bkey i
  86. bkey ,
  87. bkey l
  88. bkey o
  89. bkey .
  90. bkey ;
  91. bkey p
  92. bkey /
  93. script - dotest1
  94.  
  95. clear 18 18
  96. cursor 9 18
  97. print 'qaza, wsxs, edcd, rfvf, tgbg. yhnh, ujmj, ik,k, ol.l, p;/;.
  98. script - dotest2
  99.  
  100. clear 18 18
  101. cursor 9 18
  102. print 'azaq, swsx, dcde. frfv, gbgt, hyhn, jmju. kik, l.lo. ;p;/,
  103. script - dotest2
  104.  
  105. clear 18 18
  106. cursor 9 18
  107. print 'awaqz swsex dedrc frftv gtgyb hyhun jujim kiko, lolp; y/n.
  108. script - dotest2
  109.  
  110. clear 18 18
  111. cursor 9 18
  112. print 'azaqz sxszw dcdxe fcfvr gbgvt hyhbn jmjnu kikm, l,l.o ;.;/p
  113. script - dotest2
  114.  
  115. script - progress
  116.  
  117. clear 15
  118. cursor 2 15
  119. print 'We will practice with random letters.
  120.  
  121. cursor 9 18
  122. print 'h s o , s d x ; x r t c d j / b d u r j o d b z x r t m / m
  123. cursor 0 21
  124. print 'Remember your fingers rest on the HOME keys.
  125. hkey a
  126. hkey s
  127. hkey d
  128. hkey f
  129. hkey j
  130. hkey k
  131. hkey l
  132. hkey ;
  133. script - waitspc
  134. bkey a
  135. bkey s
  136. bkey d
  137. bkey f
  138. bkey j
  139. bkey k
  140. bkey l
  141. bkey ;
  142. script - dotest2
  143.  
  144. clear 18 18
  145. cursor 9 18
  146. print '/ x n r l d / x x t d t i d a f c , n / / x g e n y g d i r
  147. script - dotest2
  148.  
  149. clear 18 18
  150. cursor 9 18
  151. print 'o h a p i c t m . i w q x r s r p w c ; n p v v q v k j j a
  152. script - dotest2
  153.  
  154. clear 18 18
  155. cursor 9 18
  156. print 'v / i f n p t g a b z l t v b s b v f o a i q y v e l k . f
  157. script - dotest2
  158.  
  159. clear 18 18
  160. cursor 9 18
  161. print 'n o u j a ; z p . . , w , z x v ; y c h i j o u q l / m z ;
  162. script - dotest2
  163.  
  164. script - progress
  165.  
  166. clear 15
  167. cursor 2 15
  168. print 'We will practice with groups of random letters.
  169.  
  170. cursor 9 18
  171. print 'j/ b/ ts ty qk om qx s, km xq fy b, qy .g tl xo yr ;z yv lj
  172. cursor 0 21
  173. print 'Remember your fingers rest on the HOME keys.
  174. hkey a
  175. hkey s
  176. hkey d
  177. hkey f
  178. hkey j
  179. hkey k
  180. hkey l
  181. hkey ;
  182. script - waitspc
  183. bkey a
  184. bkey s
  185. bkey d
  186. bkey f
  187. bkey j
  188. bkey k
  189. bkey l
  190. bkey ;
  191. script - dotest2
  192.  
  193. clear 18 18
  194. cursor 9 18
  195. print 'ar mz ng uh ;p /k zp x; ,q vn ln rx p/ os vl gq vx mz ;; ow
  196. script - dotest2
  197.  
  198. clear 18 18
  199. cursor 9 18
  200. print 'de /g jd ;n ;l bn bm .n bw f, hc ;. bk zu kw fj ku ud ui ,f
  201. script - dotest2
  202.  
  203. clear 18 18
  204. cursor 9 18
  205. print '/;y e;v wsm vd, qmw ;by oka qkk .fb q/n vyk zsi ifr wfn bqe
  206. script - dotest2
  207.  
  208. clear 18 18
  209. cursor 9 18
  210. print 'egg be; n;q ;np /s; gmv zvx gsa uzu gbv at/ qul puo dug z.x
  211. script - dotest2
  212.  
  213. clear 18 18
  214. cursor 9 18
  215. print 'dpbh fi mgc;. e;y yn/k go cpwa f qmil syq ,u e;u. ;gb.x .uk
  216. script - dotest2
  217.  
  218. script - progress
  219.  
  220. clear 15
  221. cursor 2 15
  222. print 'Now we will practice with simple pieces of text.
  223.  
  224. cursor 19 18
  225. print 'magistrates act to keep theatres open.
  226. cursor 0 21
  227. print 'Remember your fingers rest on the HOME keys.
  228. hkey a
  229. hkey s
  230. hkey d
  231. hkey f
  232. hkey j
  233. hkey k
  234. hkey l
  235. hkey ;
  236. script - waitspc
  237. bkey a
  238. bkey s
  239. bkey d
  240. bkey f
  241. bkey j
  242. bkey k
  243. bkey l
  244. bkey ;
  245. script - dotest1
  246.  
  247. clear 18 18
  248. cursor 9 18
  249. print 'shell found on beach. man who received trousers loses appeal.
  250. script - dotest2
  251.  
  252. clear 18 18
  253. cursor 9 18
  254. print 'filming in cemetery angers residents. man fined for barking.
  255. script - dotest2
  256.  
  257. clear 18 18
  258. cursor 9 18
  259. print 'crash courses for private pilots. scotland to be sold.
  260. script - dotest2
  261.  
  262. clear 18 18
  263. cursor 9 18
  264. print 'stars broken leg hits box office. nixon picks his spot.
  265. script - dotest2
  266.  
  267. clear 18 18
  268. cursor 9 18
  269. print 'sewage plant on sea front might smell, expert says.
  270. script - dotest2
  271.  
  272. clear 18 18
  273. cursor 9 18
  274. print 'savage appointed high court judge. massive organ draws the crowd.
  275. script - dotest2
  276.  
  277. clear 18 18
  278. cursor 9 18
  279. print 'during nuclear attack there will be a school holiday.
  280. script - dotest2
  281.  
  282. script - progress
  283.  
  284. script - repeat
  285. if key = R goto repeat_lesson
  286. if key = r goto repeat_lesson
  287.  
  288. memory 2 = 1
  289.  
  290. clear
  291. cursor 51 7
  292. print '7.
  293. script - save
  294. if key = S goto exit
  295. if key = s goto exit
  296.  
  297. clear
  298. keyboard
  299.  
  300. :repeat_lesson2
  301. if memory 2 > 1 goto exit
  302. start 2
  303. clear 15
  304. cursor 23 19
  305. print 'Press any key to start lesson 8.
  306. wait -
  307. clear 19 19
  308.  
  309. cursor 2 16
  310. print 'Now that you have learnt all of the ALPHA keys, that is all the letters, I
  311. cursor 0 17
  312. print 'shall introduce a new key; the ENTER key, also known as the carriage return.
  313.  
  314. cursor 2 19
  315. print 'The ENTER key is located to the far right of the main keyboard, you press it
  316. cursor 0 20
  317. print 'with your right little finger.
  318.  
  319. hkey 13
  320.  
  321. cursor 23 22
  322. print 'Try pressing the ENTER key now.
  323.  
  324. :wait_for_cr
  325. wait -
  326. if key ! 13 goto wait_for_cr
  327.  
  328. bkey 13
  329.  
  330. cursor 17 22
  331. print 'Good. Now press the SPACE BAR to continue...
  332.  
  333. :wait_for_sp
  334. wait -
  335. if key ! 32 goto wait_for_sp
  336.  
  337. clear 15
  338. cursor 2 16
  339. print 'Good. Generally the ENTER key is used to insert a carriage return marker at
  340. cursor 0 17
  341. print 'the end of paragraphs. However, you also use it when you are entering other
  342. cursor 0 18
  343. print 'types of data, like entering numbers into a spreadsheet, or names of books
  344. cursor 0 19
  345. print 'into a database. 
  346.  
  347. cursor 2 20
  348. print 'The following tests will use the ENTER key. It may not matter now, but try
  349. cursor 0 21
  350. print 'not to think that you have to press the ENTER key at the end of every row you
  351. cursor 0 22
  352. print 'type, but at the end of every paragraph.
  353.  
  354. script - waitspc
  355.  
  356. clear 15
  357. cursor 5 16
  358. print 'british penalties for cheating in potato growing contests are among 
  359. cursor 5 20
  360. print 'the severest in the civilised world.
  361. enter
  362. script - dotest3
  363.  
  364. clear 15
  365. cursor 5 16
  366. print 'from next tuesday, the b.b.c. will include weather hints for mars 
  367. cursor 5 20
  368. print 'in the early morning home service programme; farming today.
  369. enter
  370. script - dotest3
  371.  
  372. clear 15
  373. cursor 5 16
  374. print 'a large piece of green blotting paper rested on the prime ministers 
  375. cursor 5 20
  376. print 'seat in the house of commons today. it was both symbolic and necessary.
  377. enter
  378. script - dotest3
  379.  
  380. script - progress
  381.  
  382. hkey ;
  383. fkey ''
  384.  
  385. clear 15
  386. cursor 2 16
  387. print 'The key just to the right of the ; key is the ' key, you press it with your
  388. cursor 0 17
  389. print 'right little finger.
  390.  
  391. cursor 2 19
  392. print 'Try pressing the ' key by moving your right little finger over from
  393. cursor 0 20
  394. print 'the ; key.
  395.  
  396. :wait_for_'
  397. wait -
  398. if key ! ' goto wait_for_'
  399.  
  400. fkey ;
  401. hkey ''
  402.  
  403. print ' Good, now press the ; key.
  404.  
  405. :wait_for_;
  406. wait -
  407. if key ! ; goto wait_for_;
  408.  
  409. bkey ''
  410. hkey ;
  411.  
  412. cursor 17 22
  413. print 'Good. Now press the SPACE BAR to continue...
  414.  
  415. :wait_for_sp2
  416. wait -
  417. if key ! 32 goto wait_for_sp2
  418.  
  419. bkey ;
  420.  
  421. :a1
  422. clear 15
  423. cursor 5 16
  424. print 'note; in some of our copies the article 'the power of the papacy' 
  425. cursor 5 20
  426. print 'described the pope as 'his satanic majesty', this should read 'the 
  427.  
  428. cursor 5 16
  429. start 3
  430. test -
  431. scroll 4 15 22
  432. cursor 5 20
  433. print 'roman antichrist.'
  434. enter
  435. cursor 5 16
  436. test -
  437. cursor 5 20
  438. test -
  439. script - dotest4
  440. if mistakes 3 > 0 goto a1
  441.  
  442. hkey 1
  443. hkey 2
  444.  
  445. clear 15
  446. cursor 2 16
  447. print 'Before we move on to the symbol row, we shall introduce the SHIFT keys. They
  448. cursor 0 17
  449. print 'are located on both sides of the SPACE BAR on the row above, marked with a
  450. cursor 0 18
  451. print 'upwards pointing arrow. Some keyboards also label these keys with the word
  452. cursor 0 19
  453. print 'SHIFT.
  454.  
  455. cursor 2 20
  456. print 'You use one of these keys with one hand, together with another key with the
  457. cursor 0 21
  458. print 'other hand to 'capitalise' a letter, or type a secondary symbol on one of the
  459. cursor 0 22
  460. print 'symbol keys; for example using a shift key with the symbol key / will produce ?
  461.  
  462. script - waitspc
  463.  
  464. clear 15
  465. cursor 2 16
  466. print 'Your left little finger presses the left SHIFT key, and your right little
  467. cursor 0 17
  468. print 'finger presses the right SHIFT key.
  469. cursor 0 19
  470. print 'Try pressing the right SHIFT key and hold it down.
  471.  
  472. bkey 2
  473.  
  474. :a6
  475. bkey
  476. key = 0
  477. :a7
  478. scan
  479. if key = 27 goto exit
  480. if shift 3 = 0 goto a7
  481.  
  482. if shift 3 ! 1 goto a6
  483.  
  484. clear 21 21
  485. print 'Good, now press the F key with your left index finger.
  486.  
  487. :a4
  488. wait -
  489. if key = F goto a5
  490. if key ! f goto a4
  491.  
  492. clear 21 21
  493. print 'You didn't hold the right SHIFT key down when you pressed F. Try again.
  494. goto a6
  495.  
  496. :a5
  497. hkey
  498. cursor 0 22
  499. print 'Good. Now let go of both keys.
  500.  
  501. :a10
  502. key = 0
  503. scan
  504. if key = 0 goto a11
  505. wait
  506. goto a10
  507. :a11
  508. if shift 3 ! 0 goto a10
  509.  
  510. print ' Well done.
  511. script - waitspc
  512. bkey F
  513.  
  514. clear 19
  515. print 'Try pressing the left SHIFT key and hold it down.
  516. hkey 2
  517.  
  518. :a3
  519. bkey
  520. key = 0
  521. :a2
  522. scan
  523. if key = 27 goto exit
  524. if shift 3 = 0 goto a2
  525.  
  526. if shift 3 ! 2 goto a3
  527.  
  528. clear 21 21
  529. print 'Good, now press the J key with your right index finger.
  530.  
  531. :a8
  532. wait -
  533. if key = J goto a9
  534. if key ! j goto a8
  535.  
  536. clear 21 21
  537. print 'You didn't hold the left SHIFT key down when you pressed J. Try again.
  538. goto a3
  539.  
  540. :a9
  541. hkey
  542. cursor 0 22
  543. print 'Good. Now let go of both keys.
  544.  
  545. :a12
  546. key = 0
  547. scan
  548. if key = 0 goto a13
  549. wait
  550. goto a12
  551. :a13
  552. if shift 3 ! 0 goto a12
  553.  
  554. print ' Well done.
  555. script - waitspc
  556. bkey J
  557.  
  558. clear 15
  559. cursor 2 16
  560. print 'Whenever you wish to capitalise a letter that is pressed by your right hand
  561. cursor 0 17
  562. print 'you press the shift key with your left hand. Whenever you wish to capitalise a
  563. cursor 0 18
  564. print 'letter that is pressed by your left hand you press the shift key with your
  565. cursor 0 19
  566. print 'right hand.
  567.  
  568. cursor 2 20
  569. print 'The following tests will use the SHIFT keys. Because the next test is longer
  570. cursor 0 21
  571. print 'than usual, I shall not expect 100% accuracy, so for now we will set the pass
  572. cursor 0 22
  573. print 'rate at 90%.
  574.  
  575. script - waitspc
  576.  
  577. :again
  578. start 3
  579.  
  580. clear 15
  581. cursor 0 16
  582. print 'Simplicity: Features that are too complex for the application programmer to 
  583. cursor 0 20
  584. print 'understand will not be used. It is often difficult for the graphics package 
  585.  
  586. cursor 0 16
  587. start 3
  588. test -
  589. scroll 4 15 22
  590. cursor 0 20
  591. print 'designer to detect potentially difficult aspects of his design. These aspects 
  592. cursor 0 16
  593. test -
  594.  
  595. scroll 4 15 22
  596. cursor 0 20
  597. print 'do, however, become more obvious when the user's manual is written. One way to 
  598. cursor 0 16
  599. test -
  600.  
  601. scroll 4 15 22
  602. cursor 0 20
  603. print 'avoid these difficult features is to try to write the user's manual before 
  604. cursor 0 16
  605. test -
  606.  
  607. scroll 4 15 22
  608. cursor 0 20
  609. print 'implementing the system. Anything difficult to explain will almost certainly 
  610. cursor 0 16
  611. test -
  612.  
  613. scroll 4 15 22
  614. cursor 0 20
  615. print 'be difficult to use.
  616. enter
  617. cursor 0 16
  618. test -
  619. cursor 0 20
  620. test -
  621.  
  622. clear 21
  623. cursor 0 22
  624. print 'Your speed was 
  625. words 3
  626. print ' wpm, 
  627. if accuracy 3 >= 90 goto passed
  628. print 'but your accuracy was 
  629. accuracy 3
  630. print '%, which simply isn't good
  631. cursor 0 23
  632. print 'enough. Try again.
  633. script - waitspc
  634. goto again
  635.  
  636. :passed
  637. print 'and your accuracy was 
  638. accuracy 3
  639. print '% which is excellent.
  640. cursor 0 23
  641. print 'Well done.
  642. script - waitspc
  643.  
  644. script - repeat
  645. if key = R goto repeat_lesson2
  646. if key = r goto repeat_lesson2
  647.  
  648. memory 2 = 2
  649.  
  650. clear
  651. cursor 51 7
  652. print '8.
  653. script save
  654.  
  655. if key ! C if key ! c goto exit
  656. clear
  657. keyboard
  658.  
  659. :exit
  660.